home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 076-100 / 093 / microemacs / source / src.arc / tipc.c < prev    next >
C/C++ Source or Header  |  1987-08-16  |  8KB  |  282 lines
  1.  /*
  2.  * The routines in this file provide support for the TI-PC and other
  3.  * compatible terminals. It goes directly to the alpha-numeric RAM to do
  4.  * screen output. It compiles into nothing if not a TI-PC driver.
  5.  * This is not the TIPC.C file Dan distributed but it did not work due to
  6.  * lack of current updates.  It also used all DSR calls.  This version
  7.  * does directly write to screen ram in most cases.  It has only been
  8.  * tested under Lattice 3.1 at this time though.  ( BIX id ronlepine   */
  9.  
  10. #define termdef 1                       /* don't define "term" external */
  11.  
  12. #include        <stdio.h>
  13. #include        "estruct.h"
  14. #include        "edef.h"
  15.  
  16. #if     TIPC
  17.  
  18. #define NROW    25                      /* Screen size.                 */
  19. #define NCOL    80                      /* Edit if you want to.         */
  20. #define MARGIN  8                       /* size of minimim margin and   */
  21. #define SCRSIZ  64                      /* scroll size for extended lines */
  22. #define NPAUSE  200                     /* # times thru update to pause */
  23. #define BEL     0x07                    /* BEL character.               */
  24. #define ESC     0x1B                    /* ESC character.               */
  25. #define SPACE   32                      /* space character              */
  26. #define SCADD   0xDE000000L             /* address of screen RAM        */
  27. #define ATTRADD 0xDE001800L        /* Address for attribute latch    */
  28. #define CHAR_ENABLE     0x08            /* TI attribute to show char    */
  29. #define TI_REVERSE      0x10            /* TI attribute to reverse char */
  30. #define BLACK   0+CHAR_ENABLE           /* TI attribute for Black       */
  31. #define BLUE    1+CHAR_ENABLE           /* TI attribute for Blue        */
  32. #define RED     2+CHAR_ENABLE           /* TI attribute for Red         */
  33. #define MAGENTA 3+CHAR_ENABLE           /* TI attribute for Magenta     */
  34. #define GREEN   4+CHAR_ENABLE           /* TI attribute for Green       */
  35. #define CYAN    5+CHAR_ENABLE           /* TI attribute for Cyan        */
  36. #define YELLOW  6+CHAR_ENABLE           /* TI attribute for Yellow      */
  37. #define WHITE   7+CHAR_ENABLE           /* TI attribute for White       */
  38.  
  39. extern  int     ttopen();               /* Forward references.          */
  40. extern  int     ttgetc();
  41. extern  int     ttputc();
  42. extern  int     ttflush();
  43. extern  int     ttclose();
  44. extern  int     timove();
  45. extern  int     tieeol();
  46. extern  int     tieeop();
  47. extern  int     tibeep();
  48. extern  int     tiopen();
  49. extern  int     tikopen();
  50. extern  int     tikclose();
  51. extern  int     tirev();
  52. extern  int     ticres();
  53. extern  int     ticlose();
  54. extern  int     tiputc();
  55. extern  int     tifcol();
  56. extern  int     tibcol();
  57. extern  int     tiwrattr();
  58. extern     union     REGS rg;        /* cpu register for use of DOS calls */
  59.  
  60.  
  61. int     cfcolor = -1;           /* current forground color    */
  62. int     cbcolor = -1;           /* current background color    */
  63. int     ctrans[] =              /* ansi to ti color translation table */
  64.         {BLACK, RED, GREEN, YELLOW, BLUE, MAGENTA, CYAN, WHITE};
  65.  
  66. long    scadd = SCADD;        /* address of screen ram    */
  67. long    attradd = ATTRADD;    /* address of attribute latch    */
  68. int    *scptr[NROW];        /* pointer to screen lines    */
  69. char    sline[NCOL];        /* screen line image        */
  70.  
  71.  
  72. /*
  73.  * Standard terminal interface dispatch table. Most of the fields point into
  74.  * "termio" code.
  75.  */
  76. TERM    term    = {
  77.         NROW-1,
  78.         NROW-1,
  79.         NCOL,
  80.         NCOL,
  81.         MARGIN,
  82.         SCRSIZ,
  83.         NPAUSE,
  84.         tiopen,
  85.         ticlose,
  86.         tikopen,
  87.         tikclose,
  88.         ttgetc,
  89.         tiputc,
  90.         ttflush,
  91.         timove,
  92.         tieeol,
  93.         tieeop,
  94.         tibeep,
  95.         tirev,
  96.         ticres,
  97.         tifcol,
  98.         tibcol
  99. };
  100.  
  101.  
  102. tifcol(color)           /* set the current output color */
  103.  
  104. int color;      /* color to set. Actually only used for line 25 */
  105.  
  106. { 
  107.     cfcolor = ctrans[color];
  108.     memset(attradd, cfcolor, 1);
  109. }
  110.  
  111. tibcol(color)    /* set current background color. Not used. Background is */
  112.         /* graphics function on TI  */
  113. int color;    /* color to set */
  114.  
  115. {
  116.        /* not used in memmap driver */  
  117. }
  118.        
  119. timove(row, col)
  120. {
  121.         rg.h.ah = 2;            /* set cursor position function code */
  122.         rg.h.dh = col;
  123.         rg.h.dl = row;
  124.         int86(0x49, &rg, &rg);
  125. }
  126.  
  127. tieeol()        /* erase to the end of the line */
  128.  
  129. {
  130.         int ccol;           /* current column cursor lives */
  131.         int crow;           /* current row cursor lives */
  132.     char        *lnptr;    /* pointer to the destination line */
  133.     char        i;    
  134.  
  135.         /* find the current cursor position */
  136.         rg.h.ah = 3;            /* read cursor position function code */
  137.         int86(0x49, &rg, &rg);
  138.         ccol = rg.h.dh;         /* record current column */
  139.         crow = rg.h.dl;         /* and row */
  140.  
  141.     lnptr = &sline[0];
  142.     for (i=0; i < term.t_ncol; i++)
  143.         *lnptr++ = SPACE;
  144.         /* and send the string out */
  145.     movmem(&sline[0], scptr[crow]+ccol, term.t_ncol-ccol);
  146.  
  147. }
  148.  
  149. tiputc(ch)      /* put a character at the current position in the
  150.                    current colors */
  151.  
  152. int ch;
  153.  
  154. {
  155.         rg.h.ah = 0x0E;         /* write char to screen with current attrs */
  156.         rg.h.al = ch;
  157.         int86(0x49, &rg, &rg);
  158. }
  159.  
  160. tieeop()                        /* Clear Text Screen and Home Cursor     */
  161. {                /* This also sets logical col 1, row 1   */
  162.     rg.h.ah = 0x13;         /* to physical col 1, row 1.  Avoid hard-*/
  163.     int86(0x49, &rg, &rg);  /* ware scroll which will change the pointer */
  164. }
  165.  
  166. tirev(state)            /* change reverse video state */
  167.  
  168. int state;        /* TRUE = reverse, FALSE = normal */
  169.  
  170. { 
  171.     /* Should not be accessed by memmap driver */
  172. }
  173.  
  174. ticres()         /* change screen resolution - not used    */
  175.             /* TI uses only 720 x 300 res text mode */
  176. {
  177.         return(TRUE);
  178. }
  179.  
  180. spal()          /* change palette string */
  181.  
  182. {
  183.         /*  Does nothing here - don't know what Dan plans are */
  184. }
  185.  
  186. tikopen()       
  187.  
  188. {
  189.         /* No need to change keyboard mode */
  190. }
  191.  
  192. tikclose()      
  193.  
  194. {
  195.         /* No need to close */
  196. }
  197.  
  198. tibeep()
  199. {
  200.         bdos(6, BEL, 0);
  201. }
  202.  
  203. tiopen()
  204. {
  205.     tieeop();        /* Make logical = physical screen pointers */ 
  206.     scinit();
  207.         strcpy(sres, "NORMAL");
  208.         revexist = TRUE;
  209.         ttopen();
  210. }
  211.  
  212. #if     FLABEL
  213. fnclabel (f, n)                 /* label a function key         */
  214.  
  215. int f,n;                        /* default flag, numeric argument [unused] */
  216.  
  217. {
  218.         /* Don't bother.  All function keys can be bound on the fly */
  219.         return(TRUE);
  220. }
  221. #endif
  222.  
  223. ticlose()
  224.  
  225. {
  226.         tifcol(7);
  227.         ttclose();
  228.  
  229. }
  230.  
  231. scinit()    /* initialize the screen head pointers */
  232.  
  233. {
  234.     union {
  235.         long laddr;    /* long form of address */
  236.         int *paddr;    /* pointer form of address */
  237.     } addr;
  238.  
  239.     char i;
  240.  
  241.     /* initialize the screen pointer array */
  242.     for (i = 0; i < NROW; i++) {
  243.         addr.laddr = scadd + (long)(NCOL * i);
  244.         scptr[i] = addr.paddr;
  245.     }
  246. }
  247.  
  248. scwrite(row, outstr, forg, bacg)    /* write a line out*/
  249.  
  250. int row;    /* row of screen to place outstr on */
  251. char *outstr;    /* string to write out (must be term.t_ncol long) */
  252. int forg;    /* forground color of string to write */
  253. int bacg;    /* background color */
  254.  
  255. {
  256.     char    *lnptr;    /* pointer to the destination line */
  257.     char    i;
  258.  
  259.     /* write the attribute byte to latch and setup the screen pointer */
  260.     if (forg == 0) {   /*Then you can change the back ground to color */
  261.         bacg = ctrans[bacg] + TI_REVERSE;
  262.         memset(attradd, bacg, 1);
  263.     }
  264.     else {
  265.         forg = ctrans[forg];
  266.         memset(attradd, forg, 1);
  267.     }
  268.  
  269.     lnptr = &sline[0];
  270.     for (i=0; i<term.t_ncol; i++)
  271.         *lnptr++ = outstr[i];
  272.     /* and send the string out */
  273.     movmem(&sline[0], scptr[row], term.t_ncol);
  274.  
  275. }
  276. #else
  277. tihello()
  278. {
  279. }
  280. #endif
  281.  
  282.